home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-serious-
/
graphics
/
metaview
/
arexx-examples
/
provector_import.pvrx
< prev
next >
Wrap
Text File
|
1999-11-29
|
2KB
|
90 lines
/* Graphik Import mittels MetaView */
METAVIEW = ':Aminet/MetaView/MetaView' /* Please complete the path */
OPTIONS RESULTS
SIGNAL ON FAILURE
SIGNAL ON SYNTAX
/*
** Looking for our start process
*/
PVPORT = ADDRESS()
say PVPORT
if (LEFT(PVPORT, 9) ~= "ProVector") then do /* not started from ProVector */
say "Please start me from ProVector!"
EXIT
end
/*
** Create a new Metaview process:
** first look for the allready running processes
** then the new Port will be the next one
*/
do NUMBER = 0 to 20
if (SHOW(PORTS,"METAVIEW." || NUMBER) = 0) then
leave
end
/*
** Searching for MetaView: 1. our path above,
** 2. path in env:MetaView.path
** or 3. you must have a assign "MetaView:"
*/
if (EXISTS(METAVIEW)=0) then do
if OPEN("MVVAR","env:MetaView.path","Read") then do
METAVIEW = READLN("MVVAR")
end
if (EXISTS(METAVIEW)=0) then do
METAVIEW = "MetaView:MetaView"
end
end
/*
** Enable warnings for WaitForPort
*/
OPTIONS FAILAT 5
ADDRESS COMMAND
"run " || METAVIEW || " NODISPLAY"
MVPORT = "METAVIEW." || NUMBER
"WaitForPort " || MVPORT
/*
** Ignore the other errors
*/
OPTIONS FAILAT 21
/*
** Do all needed thinks with MetaView (LOAD,SAVE,QUIT...)
*/
ADDRESS VALUE MVPORT
REQUESTFILE "Bilder:"
FILENAME = result
LOAD FILENAME
SAVE "t:test.dr2d" AS DR2D
QUIT
/*
** Import the temporary file in application
*/
ADDRESS VALUE PVPORT
OPEN "t:test.dr2d"
EXIT
FAILURE:
ADDRESS COMMAND
REQUESTCHOICE "Error" """Can't find" METAVIEW "!""" "OK"
EXIT
SYNTAX:
say "Error on line" SIGL ":" ERRORTEXT(RC) "!"
EXIT